home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 134 / 134.d81 / b.op ed 134 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  57 lines
  1. 10 poke56,64:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 25 poke788,52
  4. 30 poke53281,0:poke53280,0:print"[147][129]"tab(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
  5. 40 printtab(10)"[155]by [210]ichard [202]. [199]lisson
  6. 42 [139]f1[167]102
  7. 44 f1[178]1
  8. 50 [158]57812"wp/cm/unp",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  9. 62 [158]57812"brain.shp",dv,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
  10. 64 [158]57812"error.shp",dv,0:[151]780,0:[151]781,0:[151]782,114:[158]65493
  11. 66 [158]57812"secret.shp",dv,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
  12. 90 [151]53280,0
  13. 92 wp[178]49152:un[178]51456:cm[178]50688
  14. 94 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
  15. 96 s(1)[178]100:s(2)[178]114:s(3)[178]128
  16. 102 [153][163]12)" 1.cont peekrain on len=64
  17. 103 printtab(12)" 2.[154] [197]rror near $8518
  18. 104 [153][163]12)" 3.cont (NULL)ecret 64 (NULL)ser
  19. 105 printtab(12)" 4.[154] [209]uit
  20. 106 [161]a$:[139]a$[179]"1"[176]a$[177]"4"[167]106
  21. 108 d[178][197](a$):[139]d[178]4[167]40000
  22. 109 [129]i[178]3[164]10:[151]781,i:[158]59903:[130]
  23. 112 [151]251,s(d):[151]252,64:[151]253,96:[158]51456
  24. 120 [153]"onononon 1.cont mid$ust show the picture.
  25. 122 print" 2.[154] [211]how the picture and print it on
  26. 125 [153]"    a 7-pin (1525-emulating) printer.
  27. 130 print" 3.[154] [211]how the picture and print it on
  28. 135 [153]"    an 8-pin (valpson-emulating) printer.
  29. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  30. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  31. 170 [153]"list  (NULL)ake sure your printer is on-line.
  32. 220 poke198,0
  33. 222 poke53280,0
  34. 230 geta$:ifa$<"1"ora$>"5"then230
  35. 232 ifa$="5"then40000
  36. 233 ifa$="4"thenlf=1-lf:poke214,14:print:printtab(23)""lf$(lf):goto220
  37. 235 sys51459
  38. 240 ifa$="2"thensys49155,4,0,lf,0,0,39,24,64:goto280
  39. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,64,75,35,65,8,0:goto280
  40. 260 poke198,0
  41. 262 poke53280,0
  42. 270 geta$:ifa$=""then270
  43. 280 poke251,s(d):poke252,64:poke253,96:sys51459
  44. 290 print"[147]":goto30
  45. 10000 dv=peek(186):n$="b.op ed 134":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  46. 40000 poke788,49
  47. 40002 fori=0to21:poke828+i,8+i:next
  48. 40010 ifdv<8ordv>29ordv=8then40030
  49. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  50. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  51. 40040 close2:open2,i,2:close2:ifstthen40060
  52. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  53. 40060 next:print"[147]":poke53272,23:poke186,8:end
  54. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  55. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  56. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  57.